home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / msdos / batvew11.zip / AINSTALL.BAT < prev    next >
DOS Batch File  |  1993-09-25  |  1KB  |  66 lines
  1. @echo off
  2. echo off
  3. AMSG INSTL.TXT
  4. :GTOP
  5. ABATMENU +27 15 116 121 233 " GET FILES " "From Drive A:" "From Drive B:" "From Drive C:" "From Drive D:" Exit
  6.  
  7. IF ERRORLEVEL 5         GOTO IEXIT
  8. IF ERRORLEVEL 4         GOTO DDRV
  9. IF ERRORLEVEL 3         GOTO CDRV
  10. IF ERRORLEVEL 2         GOTO BDRV
  11. IF ERRORLEVEL 1         GOTO ADRV
  12. IF ERRORLEVEL 0         GOTO IEXIT
  13. GOTO GTOP
  14.  
  15. :ADRV
  16. SET FROMDRV=A:
  17. GOTO GBOT
  18. :BDRV
  19. SET FROMDRV=B:
  20. GOTO GBOT
  21. :CDRV
  22. SET FROMDRV=C:
  23. GOTO GBOT
  24. :DDRV
  25. SET FROMDRV=D:
  26. :GBOT
  27.  
  28. ABATMENU +27 15 116 113 234 " INSTALL " "To Drive A:" "To Drive B:" "To Drive C:" "To Drive D:" Exit
  29.  
  30. IF ERRORLEVEL 5         GOTO IEXIT
  31. IF ERRORLEVEL 4         GOTO TODDRV
  32. IF ERRORLEVEL 3         GOTO TOCDRV
  33. IF ERRORLEVEL 2         GOTO TOBDRV
  34. IF ERRORLEVEL 1         GOTO TOADRV
  35. IF ERRORLEVEL 0         GOTO IEXIT
  36. GOTO GBOT
  37.  
  38. :TOADRV
  39. SET DRIVE=A:
  40. GOTO PUTB
  41. :TOBDRV
  42. SET DRIVE=B:
  43. GOTO PUTB
  44. :TOCDRV
  45. SET DRIVE=C:
  46. GOTO PUTB
  47. :TODDRV
  48. SET DRIVE=D:
  49.  
  50. :PUTB
  51. AMSG +27 15 49 176 /ask "Install to Directory Abatview"
  52. IF ERRORLEVEL 1 GOTO SUBD
  53. IF ERRORLEVEL 0 GOTO ROOT
  54. GOTO PUTB
  55. :ROOT
  56. ACLS +23
  57. COPY %FROMDRV%\*.* %DRIVE%\
  58. ACLS /HZ +7
  59. GOTO IEXIT
  60. :SUBD
  61. ACLS +23
  62. MD %DRIVE%\ABATVIEW
  63. COPY %FROMDRV%\*.* %DRIVE%\ABATVIEW
  64. ACLS /HZ +7
  65. :IEXIT
  66.